home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / procssng / ccs / ccs-11tl.lha / lbl / xview / segal / preferences.G < prev    next >
Encoding:
Text File  |  1992-11-24  |  11.2 KB  |  370 lines
  1. ;GIL-3
  2. (
  3. (
  4.     :type                   :popup-window
  5.     :name                   pop_preferences_display
  6.     :owner                  win
  7.     :width                  373
  8.     :height                 221
  9.     :background-color       ""
  10.     :foreground-color       ""
  11.     :label                  "Segal: Display Preferences"
  12.     :label-type             :string
  13.     :initial-state          :invisible
  14.     :show-footer            nil
  15.     :resizable              nil
  16.     :pinned                 t
  17.     :done-handler           nil
  18.     :event-handler          nil
  19.     :user-data              ()
  20.     :actions                ()
  21. )
  22. (
  23.     :type                   :control-area
  24.     :name                   controls
  25.     :owner                  pop_preferences_display
  26.     :help                   ""
  27.     :x                      0
  28.     :y                      0
  29.     :width                  373
  30.     :height                 221
  31.     :background-color       ""
  32.     :foreground-color       ""
  33.     :initial-state          :visible
  34.     :show-border            nil
  35.     :menu                   nil
  36.     :event-handler          nil
  37.     :user-data              ()
  38.     :actions                ()
  39. )
  40. (
  41.     :type                   :slider
  42.     :name                   set_image_contrast
  43.     :owner                  controls
  44.     :help                   ""
  45.     :x                      16
  46.     :y                      16
  47.     :width                  264
  48.     :height                 20
  49.     :value-x                121
  50.     :value-y                16
  51.     :slider-width           100
  52.     :ticks                  0
  53.     :foreground-color       ""
  54.     :label                  "Image contrast:"
  55.     :label-type             :string
  56.     :layout-type            :horizontal
  57.     :orientation            :horizontal
  58.     :show-endboxes          nil
  59.     :show-range             t
  60.     :show-value             nil
  61.     :min-value              0
  62.     :max-value              100
  63.     :min-value-string       ""
  64.     :max-value-string       ""
  65.     :min-tick-string        ""
  66.     :max-tick-string        ""
  67.     :initial-value          25
  68.     :initial-state          :active
  69.     :notify-handler         nil
  70.     :event-handler          nil
  71.     :user-data              ()
  72.     :actions                (
  73.         (
  74.         :from                   (pop_preferences_display set_image_contrast)
  75.         :when                   (Notify )
  76.         :to                     (pop_preferences_display set_image_contrast)
  77.         :function_type          ExecuteCode
  78.         :arg_type               (:string)
  79.         :action                 ("cmap_init();
  80. build_cmap();
  81. redisplay_all();")
  82.         )
  83.     )
  84. )
  85. (
  86.     :type                   :slider
  87.     :name                   set_image_opacity
  88.     :owner                  controls
  89.     :help                   ""
  90.     :x                      22
  91.     :y                      42
  92.     :width                  258
  93.     :height                 20
  94.     :value-x                121
  95.     :value-y                42
  96.     :slider-width           100
  97.     :ticks                  0
  98.     :foreground-color       ""
  99.     :label                  "Image opacity:"
  100.     :label-type             :string
  101.     :layout-type            :horizontal
  102.     :orientation            :horizontal
  103.     :show-endboxes          nil
  104.     :show-range             t
  105.     :show-value             nil
  106.     :min-value              0
  107.     :max-value              100
  108.     :min-value-string       ""
  109.     :max-value-string       ""
  110.     :min-tick-string        ""
  111.     :max-tick-string        ""
  112.     :initial-value          100
  113.     :initial-state          :active
  114.     :notify-handler         nil
  115.     :event-handler          nil
  116.     :user-data              ()
  117.     :actions                (
  118.         (
  119.         :from                   (pop_preferences_display set_image_opacity)
  120.         :when                   (Notify )
  121.         :to                     (pop_preferences_display set_image_opacity)
  122.         :function_type          ExecuteCode
  123.         :arg_type               (:string)
  124.         :action                 ("cmap_init();
  125. build_cmap();
  126. redisplay_all();")
  127.         )
  128.     )
  129. )
  130. (
  131.     :type                   :slider
  132.     :name                   set_mask_opacity
  133.     :owner                  controls
  134.     :help                   ""
  135.     :x                      28
  136.     :y                      68
  137.     :width                  252
  138.     :height                 20
  139.     :value-x                121
  140.     :value-y                68
  141.     :slider-width           100
  142.     :ticks                  0
  143.     :foreground-color       ""
  144.     :label                  "Mask opacity:"
  145.     :label-type             :string
  146.     :layout-type            :horizontal
  147.     :orientation            :horizontal
  148.     :show-endboxes          nil
  149.     :show-range             t
  150.     :show-value             nil
  151.     :min-value              0
  152.     :max-value              100
  153.     :min-value-string       ""
  154.     :max-value-string       ""
  155.     :min-tick-string        ""
  156.     :max-tick-string        ""
  157.     :initial-value          0
  158.     :initial-state          :active
  159.     :notify-handler         nil
  160.     :event-handler          nil
  161.     :user-data              ()
  162.     :actions                (
  163.         (
  164.         :from                   (pop_preferences_display set_mask_opacity)
  165.         :when                   (Notify )
  166.         :to                     (pop_preferences_display set_mask_opacity)
  167.         :function_type          ExecuteCode
  168.         :arg_type               (:string)
  169.         :action                 ("cmap_init();
  170. build_cmap();
  171. redisplay_all();")
  172.         )
  173.     )
  174. )
  175. (
  176.     :type                   :message
  177.     :name                   msg_quantizing
  178.     :owner                  controls
  179.     :help                   ""
  180.     :x                      12
  181.     :y                      94
  182.     :width                  248
  183.     :height                 13
  184.     :foreground-color       ""
  185.     :label                  "Quantizing ---------------------"
  186.     :label-type             :string
  187.     :label-bold             t
  188.     :initial-state          :inactive
  189.     :event-handler          nil
  190.     :user-data              ()
  191.     :actions                ()
  192. )
  193. (
  194.     :type                   :setting
  195.     :name                   set_requant_win
  196.     :owner                  controls
  197.     :help                   ""
  198.     :x                      32
  199.     :y                      116
  200.     :width                  286
  201.     :height                 23
  202.     :value-x                96
  203.     :value-y                116
  204.     :rows                   1
  205.     :columns                0
  206.     :layout-type            :horizontal
  207.     :foreground-color       ""
  208.     :setting-type           :exclusive
  209.     :selection-required     t
  210.     :label                  "Window:"
  211.     :label-type             :string
  212.     :notify-handler         nil
  213.     :event-handler          nil
  214.     :choices                ("View X" "View Y" "View Z" "Paint" )
  215.     :choice-label-types     (:string :string :string :string )
  216.     :choice-colors          ("" "" "" "" )
  217.     :initial-selections     (nil nil t nil )
  218.     :initial-state          :inactive
  219.     :user-data              ()
  220.     :actions                (
  221.         (
  222.         :from                   (pop_preferences_display set_requant_win "Paint")
  223.         :when                   (Notify )
  224.         :to                     (pop_preferences_display set_requant_win "Paint")
  225.         :function_type          ExecuteCode
  226.         :arg_type               (:string)
  227.         :action                 ("rgb.quant.win = WIN_PAINT;")
  228.         )
  229.         (
  230.         :from                   (pop_preferences_display set_requant_win "View X")
  231.         :when                   (Notify )
  232.         :to                     (pop_preferences_display set_requant_win "View X")
  233.         :function_type          ExecuteCode
  234.         :arg_type               (:string)
  235.         :action                 ("rgb.quant.win = WIN_VX;")
  236.         )
  237.         (
  238.         :from                   (pop_preferences_display set_requant_win "View Y")
  239.         :when                   (Notify )
  240.         :to                     (pop_preferences_display set_requant_win "View Y")
  241.         :function_type          ExecuteCode
  242.         :arg_type               (:string)
  243.         :action                 ("rgb.quant.win = WIN_VY;")
  244.         )
  245.         (
  246.         :from                   (pop_preferences_display set_requant_win "View Z")
  247.         :when                   (Notify )
  248.         :to                     (pop_preferences_display set_requant_win "View Z")
  249.         :function_type          ExecuteCode
  250.         :arg_type               (:string)
  251.         :action                 ("rgb.quant.win = WIN_VZ;")
  252.         )
  253.     )
  254. )
  255. (
  256.     :type                   :setting
  257.     :name                   set_requant_quality
  258.     :owner                  controls
  259.     :help                   ""
  260.     :x                      32
  261.     :y                      142
  262.     :width                  333
  263.     :height                 23
  264.     :value-x                94
  265.     :value-y                142
  266.     :rows                   1
  267.     :columns                0
  268.     :layout-type            :horizontal
  269.     :foreground-color       ""
  270.     :setting-type           :exclusive
  271.     :selection-required     t
  272.     :label                  "Quality:"
  273.     :label-type             :string
  274.     :notify-handler         nil
  275.     :event-handler          nil
  276.     :choices                ("Best (Slowest)" "Medium" "Worst (Fastest)" )
  277.     :choice-label-types     (:string :string :string )
  278.     :choice-colors          ("" "" "" )
  279.     :initial-selections     (nil nil nil )
  280.     :initial-state          :inactive
  281.     :user-data              ()
  282.     :actions                (
  283.         (
  284.         :from                   (pop_preferences_display set_requant_quality "Best (Slowest)")
  285.         :when                   (Notify )
  286.         :to                     (pop_preferences_display set_requant_quality "Best (Slowest)")
  287.         :function_type          ExecuteCode
  288.         :arg_type               (:string)
  289.         :action                 ("rgb.quant.quality = Q_BEST;")
  290.         )
  291.         (
  292.         :from                   (pop_preferences_display set_requant_quality "Medium")
  293.         :when                   (Notify )
  294.         :to                     (pop_preferences_display set_requant_quality "Medium")
  295.         :function_type          ExecuteCode
  296.         :arg_type               (:string)
  297.         :action                 ("rgb.quant.quality = Q_MEDIUM;")
  298.         )
  299.         (
  300.         :from                   (pop_preferences_display set_requant_quality "Worst (Fastest)")
  301.         :when                   (Notify )
  302.         :to                     (pop_preferences_display set_requant_quality "Worst (Fastest)")
  303.         :function_type          ExecuteCode
  304.         :arg_type               (:string)
  305.         :action                 ("rgb.quant.quality = Q_WORST;")
  306.         )
  307.     )
  308. )
  309. (
  310.     :type                   :button
  311.     :name                   but_requant
  312.     :owner                  controls
  313.     :help                   ""
  314.     :x                      34
  315.     :y                      172
  316.     :width                  89
  317.     :height                 19
  318.     :constant-width         nil
  319.     :button-type            :normal
  320.     :foreground-color       ""
  321.     :label                  "ReQuantize"
  322.     :label-type             :string
  323.     :initial-state          :inactive
  324.     :menu                   nil
  325.     :notify-handler         nil
  326.     :event-handler          nil
  327.     :user-data              ()
  328.     :actions                (
  329.         (
  330.         :from                   (pop_preferences_display but_requant)
  331.         :when                   (Notify )
  332.         :to                     (pop_preferences_display but_requant)
  333.         :function_type          ExecuteCode
  334.         :arg_type               (:string)
  335.         :action                 ("quantize();")
  336.         )
  337.     )
  338. )
  339. (
  340.     :type                   :button
  341.     :name                   but_close
  342.     :owner                  controls
  343.     :help                   ""
  344.     :x                      161
  345.     :y                      192
  346.     :width                  51
  347.     :height                 19
  348.     :constant-width         nil
  349.     :button-type            :normal
  350.     :foreground-color       ""
  351.     :label                  "Close"
  352.     :label-type             :string
  353.     :initial-state          :active
  354.     :menu                   nil
  355.     :notify-handler         nil
  356.     :event-handler          nil
  357.     :user-data              ()
  358.     :actions                (
  359.         (
  360.         :from                   (pop_preferences_display but_close)
  361.         :when                   (Notify )
  362.         :to                     (pop_preferences_display)
  363.         :function_type          :user_defined
  364.         :arg_type               ()
  365.         :action                 (Hide)
  366.         )
  367.     )
  368. )
  369. )
  370.